Imports System.Data.SqlClient
Imports system.Xml
Public Class dChequera
    Public Function Existe(ByVal CodigoChequera As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoChequera <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoChequera", CodigoChequera))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblChequeraBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal Comienzo As Integer, ByVal Ultimo As Integer, ByVal CodigoCuenta As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If Comienzo <> 0 Then
            Parametros.Add(New SqlParameter("@pEComienzo", Comienzo))
        End If
        If Ultimo <> 0 Then
            Parametros.Add(New SqlParameter("@pEUltimo", Ultimo))
        End If
        If CodigoCuenta <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCuenta", CodigoCuenta))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblChequeraALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoChequera As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoChequera <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoChequera", CodigoChequera))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblChequeraELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoChequera As Integer, ByVal Comienzo As Integer, ByVal Ultimo As Integer, ByVal CodigoCuenta As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoChequera <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoChequera", CodigoChequera))
        End If
        If Comienzo <> 0 Then
            Parametros.Add(New SqlParameter("@pEComienzo", Comienzo))
        End If
        If Ultimo <> 0 Then
            Parametros.Add(New SqlParameter("@pEUltimo", Ultimo))
        End If
        If CodigoCuenta <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCuenta", CodigoCuenta))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblChequeraMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoChequera As Integer, ByVal Comienzo As Integer, ByVal Ultimo As Integer, ByVal CodigoCuenta As Integer) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoChequera <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoChequera", CodigoChequera))
        End If
        If Comienzo <> 0 Then
            Parametros.Add(New SqlParameter("@pEComienzo", Comienzo))
        End If
        If Ultimo <> 0 Then
            Parametros.Add(New SqlParameter("@pEUltimo", Ultimo))
        End If
        If CodigoCuenta <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCuenta", CodigoCuenta))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblChequeraBUSCARFILTRADO", Parametros)
    End Function
End Class
